Image pro plus 分析Colocalizatoin的MACRO代码
已有 1072 次阅读2005-12-21 23:28
|个人分类:软件使用|
Codition: 红色和绿色经COLOR COMPOSITE后,计算黄色的CLUSTER数目。
Macro
Sub Composite()
'<c>F
ret = IpBlbShow(1)
ret = IpBlbEnableMeas(BLBM_ALL, 0)
ret = IpBlbEnableMeas(BLBM_AREAPOLY, 1)
ret = IpBlbSetFilterRange(BLBM_AREAPOLY, 0.4, 40)
ret = IpBlbEnableMeas(BLBM_DENSITY, 1)
ret = IpSegShow(1)
ret = IpSegSetAttr(SETCURSEL, 0)
ret = IpSegSetAttr(CHANNEL, 0)
ret = IpSegPreview(CURRENT_C_T)
ret = IpSegShow(2)
ret = IpSegSetAttr(SETCURSEL, 0)
ret = IpSegPreview(CURRENT_C_T)
ret = IpSegShow(1)
ret = IpSegSetAttr(SETCURSEL, 0)
ret = IpSegSetAttr(CHANNEL, 0)
ret = IpSegPreview(CURRENT_C_T)
ret = IpSegShow(2)
ret = IpSegSetAttr(SETCURSEL, 0)
ret = IpSegPreview(CURRENT_C_T)
ret = IpSegSetAttr(SEGCLR_RED, 0)
ret = IpSegSetAttr(SEGCLR_GREEN, 0)
ret = IpSegSetAttr(SEGCLR_BLUE, 255)
ret = IpSegPreview(CURRENT_C_T)
ret = IpSegShow(1)
ret = IpSegReset()
ret = IpSegPreview(ALL_C_T)
ret = IpSegSetRange(0, 255, 255)
ret = IpSegSetRange(1, 225, 255)
ret = IpSegSetRange(2, 0, 0)
ret = IpSegPreview(ALL_C_T)
ret = IpSegPreview(CURRENT_C_T)
ret = IpSegShow(0)
ret = IpBlbCount()
ret = IpBlbUpdate(0)
ret = IpBlbSaveData("", S_HEADER+S_Y_AXIS+S_DDE)
End Sub